home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t9.d64 / function keys.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  903b  |  33 lines
  1. 1 GOSUB300
  2. 2 F$(1)="L[207]"+CHR$(34)+"$"+CHR$(34)+",8"
  3. 3 F$(2)="LIST"+CHR$(13)
  4. 4 F$(3)="RUN"+CHR$(13)
  5. 5 F$(4)="LOAD"
  6. 6 F$(5)="GOSUB"
  7. 7 F$(6)="GOTO"
  8. 8 F$(7)="RETURN"
  9. 9 F$(8)="SAVE"
  10. 10 SYS 12*4096+64
  11. 20 V=12*4096-1
  12. 30 FOR I=1TO8:K=I-1:V1=V+K*8
  13. 40 FORJ=1TOLEN(F$(I))
  14. 50 POKE V1+J,ASC(MID$(F$(I),J,1))
  15. 60 NEXT:NEXT:PRINT"[147]FUNCTION KEYS ARE:"
  16. 70 PRINT"F1="F$(1):PRINT"F2="F$(5):PRINT"F3="F$(2):PRINT"F4="F$(6)
  17. 80 PRINT"F5="F$(3):PRINT"F6="F$(7):PRINT"F7="F$(4):PRINT"F8="F$(8)
  18. 200 DATA 120,169,87,141,20,3,169,192,141,21
  19. 210 DATA 3,88,162,63,169,0,157,0,192,202
  20. 220 DATA 16,250,96,165,197,201,64,208,6,141
  21. 230 DATA 151,192,76,148,192,205,151,192,240,44
  22. 240 DATA 141,151,192,162,3,221,152,192,240,5
  23. 250 DATA 202,16,248,48,29,138,174,141,2,240
  24. 260 DATA 3,24,105,4,10,10,10,168,162,0
  25. 270 DATA 185,0,192,157,119,2,200,232,224,8
  26. 280 DATA 208,244,134,198,76,49,234,64,4,5,6,3,0
  27. 290 :
  28. 299 END
  29. 300 FORI=0TO92:READA:Z=Z+A
  30. 310 POKE 12*4096+64+I,A:NEXT
  31. 320 IF Z<>10771 THEN"ERROR IN DATA STATEMENTS":STOP
  32. 330 RETURN
  33.